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-- Directory. Mesa Edited by Sandman on August 23, 1977 9:40 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
BFSDefs: FROM "bfsdefs", 
DirectoryDefs : FROM "directorydef s" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
StreamDefs: FROM "streamdefs" , 
AltoFileDefs: FROM "al tof iledefs" ; 

DEFINITIONS FROM SegmentDefs, StringDefs. AUoFileOefs, StreamDefs; 

Directory: PROGRAM 

IMPORTS BFSDefs, SegmentDefs. StreamDefs, StringDefs EXPORTS DirectoryDefs = BEGIN 

FPptr: TYPE = POINTER ^0 FP 
DVptr: TYPE = POINTER TO DV 
MDptr: TYPE = POINTER TO HD 

BadFilename: PUBLIC SIGNAL [name :STRING] = CODE; 
BadDirectory: PUBLIC SIGNAL [name : STRING] = CODE; 

EnumerateOirectoryr PUBLIC PROCEDURE [ 

proc:PROCEDURE [POINTER TO FP. STRING] RETURNS [BOOLEAN]] = 
BEGIN 

PassItOn: PROCEDURE [i :StreamIndex . dv:DVptr. s:STRING] RETURNS [BOOLEAN] 
BEGIN fp: FP; 
IF dv, type = DEfile THEN 
BEGIN 

BFSDefs. MakeFP[@fp,@dv.fp]; 
RETURN[proc[Qfp.s]] 
END; 
RFTURN[FALSE] 
END; 
dir: StreamHandle ♦- CreateWordStream[SysDi r .Read] ; 
[] <- EnumerateEntries[dir , PassItOn] ; 
dir. destroy[dir] ; 
RETURN 
END; 

DirectoryLookup: PUBLIC PROCEDURE [fp:FPptr. nametSTRING. create : BOOLEAN] 
RETURNS [old:BOOLEAN] = 
BEGIN 

dir: StreamHandle; access: AccessOptions; hd: HD; 
fn: STRING ♦- [F i 1 enameChars] : ExpandF i 1ename[name , f n] ; 
access ^ IF -create THEN Read ELSE Read+Wri te+Append ; 
dir ♦- CreateWordStream[SysDir , access] ; 
old ♦- FindName[d ir , fp, fn ,@hd] . found; 
IF -old AND create THEN 

BEGIN 

-- should be Qdir.file.fp 

BFSDefs. CreateFi1e[rn, fp , @SysDirFP] ; 

MakeEntry[dir, fp, fn.Qhd]; 

END; 
dir.destroy[dir]; 
RETURN 
END; 

DirectoryLookupFP: PUBLIC PROCEDURE [fp:FPptr, name:STRING] 
RETURNS [oldiBOOLCAN] = 
BEGIN 

dir: StreamHandle ♦- CreateWordStream[SysDi r , Read] ; 
old <- F indFP[d ir . fp , name] . founJ; 
dir , des troy[d ir] ; 
RETURN 
END: 

DirecloryPurge: PUBl TC PROCfDURF [fpiFPptr, nameiSTRING] 
RETURNS [foundrBOOLEAN] = 
BEGIN 

dir: StreamHandle; index: Streamlndex; 
fn: STRING ♦- [ F i 1 enameChars ] ; CxpandF i 1 ename[name , f n] ; 
dir «- CreateWordSLream[SysD ir , Read+Wr i te]; 
[found . index] *■ F indNaine[d i r , fp , f n , NIL] ; 
IF found THEN Del e tefn try[d i r , index] ; 
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dir. destroy[dir]; 

RETURN 

END; 

DirectoryPurgeFP: PUBLIC PROCEDURE [fp:FPptr] 
RETURNS [found:BOOLEAN] = 
BEGIN 

dir: StreamHandle; index: Streamlndex; 
dir *• CreateWordStream[SysDir,Read+Write]; 
[found, index] ♦- FindFP[dir . fp .NIL] ; 
IF found THEN Del eteEntry[di r , index]; 
dir.destroy[dir]; 
RETURN 
END; 

-- Support Routines 

DEugly: INTEGER = DEfi1e+l; -- for malformed DEfile entries, 

BcplWords: INTEGER = 20; -- WordsForBcplStr ing[F i lenameChars] ; 

HD: TYPE = RECORD [size, needed: INTEGER, index: Streamlndex]; 

EnumerateEntries: PUBLIC PROCEDURE [di r : StreamHandle . 

proc:PROCEDURE [Streamlndex. DVptr. STRING] RETURNS [BOOLEAN]] RETURNS [Streamlndex] 

BEGIN 

dv: DV; length: CARDINAL: 

name: STRING ♦- [Fi lenameChars] ; 

index: Streamlndex ♦- Getlndex[di r] ; 

dn: ARRAY [0 .. BcplWords ) OF UNSPECIFIED; 

bcpl: POINTER TO bcplSTRING *• 0dn[O]; 

UNTIL dir.endof[dir] DO 

[] ^ ReadB1ock[dir,@dv,l]; 

IF (length ♦- dv.length)=0 THEN ERROR BadDirectory[name] ; 

IF dv.type = DEfile THEN 

IF length IN (SIZE[DV] . . SIZE[DV]+LENGTH[dn]] THEN 
BEGIN 

[] ♦- ReadBlock[dir,@dv+l,SIZE[DV]-l]; 
[] ♦- ReadBlock[dir,bcpl,length-SIZE[DV]]; 
BcplToMesaString[bcpl .name] ; 
END 
ELSE dv.type ♦■ DEugly; 
IF proc[index,@dv,name] THEN EXIT; 

index. byte <- index . byte+1 ength*Al toDefs .BytesPerWord ; 
Setlndex[dir , index ♦- Normal izelndex[i ndex]] ; 
ENDLOOP; 
RETURN[index] 
END; 

sinkHD: HD; 

FindName: PROCEDURE [d i r : StreamHandle, fp:FPptr, name:STRING. hd:HDptr] 
RETURNS [found:BOOLEAN, i ndex : Streamlndex] = 
BEGTN 

MatchName: PROCEDURE [ i : Streamlndex , dv:DVptr. s :STRING]RETURNS [BOOLEAN] = 
BEGIN 

IF hd.size = THEN hd. index ♦- i ; 
SELECT dv.type FROM 
DEfree => 

IF hd.size < hd. needed 

THEN hd.size ♦- hd . s ize+dv . 1 eng th ; 
DFfile => 

If found ^ fqu i vale n tStr ing[ name , s] 
THFN BFSDefs.MakerP[rp,@dv. fp]: 
FNOCASF; 

-- SIGNAL BadDirectory[s]; 
IF dv. type ff DCfree 
AND hd.si/e < hd. needed 

THFN hd.s i/e ^ 0; 
RrTURN[found] 
FND; 
IF hd = Nil THFN hd ^ QsinkHD; 

hdr *- HD[0.SI7r[DV]+WordsForBcplStr ing[name. length], ]; 
found <- FAISF; index *- FnumerateFn tr iGs[d i r . MatchName] ; 
IF hd.size^O THFN hd. index ♦- index; 
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RETURN 
END; 

FindFP: PROCEDURE [d ir :StreamHand1 e . fp:FPptr, name:STRING] 
RETURNS [found:BOOLEAN. index :StreainIndex] « 
BEGIN 

MatchFP: PROCEDURE [i :S treamlndex , dv:DVptr. s:STRING] RETURNS [BOOLEAN] 
BEGIN f: FP; 
SELECT dv.type FROM 
DEfree => NULL; 
DEfile => 

BEGIN BFSDefs.MakeFP[0f .Qdv.fp]; 
IF (found ^ f=fpt) 
AND name it NIL THEN 

BEGIN name, length <- 0; 
AppendString[name, s] ; 
END; 
END; 
ENDCASE; -- SIGNAL BadDi rectory[s] ; 
RETURN[found] 
END; 
found ♦• FALSE; 

index ♦- EnumerateEntries[dir , MatchFP] ; 
RETURN 
END; 

MakeEntry: PROCEDURE [dir tStreamHandl e . fp:FPptr. name:STRING, hd:HDptr] = 
BEGIN leftover: CARDINAL; 
dv: DV ♦- DV[DErile,hd. needed,]; 
dn: ARRAY [0 . . BcplWords ) OF UNSPECIFIED; 
bcpl: POINTER TO bcplSTRING *- Qdn[0]; 
IF name. length > Fi lenameChars 

THEN CRROR BadF i 1 ename[name] ; 
BFSDefs.MakeCFP[@dv.fp.fp]; 
MesaToBcplStr i ng[ name. bcpl ] ; 
Se tin dex[dir,hd. index]; 
[] ^ WriteBlock[dir,@dv,SIZE[DV]]; 
[] ♦- WriteBlock[dir,bcpl ,hd.needed-SIZE[DV]]; 
IF (leftover ^ hd . size-hd .needed)>0 THEN 

BEGIN 

dv ♦- DV[DErree, leftover, ]; 

[] ♦- WriteB1ock[dir,@dv.l]; 

END; 
RETURN 
END; 

DeleteEntry: PROCEDURE [d i r :StreamHand1e , index : Streamlndex] = 
BEGIN dv:DV; 
Setlndex[d ir , index] ; 
[] ^ ReadBlock[dir,@dv, 1]; 
dv. type ♦- DEfree; 
Setlndex[dir, index]; 
[] ^ Wr1teBlock[dir,0dv, 1]; 
RETURN 
END; 

-- Filename Parsing (such as it is) 

ExpandFilename: PUBLIC PROCEDURE [name, f i lename : STRING] = 
BFGIN f i lename. length ♦- 0; 
Appends tr i ng[ f i lename, name] ; 
If f i Ten ame[ f i lename . length -1] H '. 

THEN AppendChar[f i lename, ' . ] ; 
RETURN 
END; 



-- Main Body 

SysDir: F ileHandle ^ NIL; 

SysDirfP: fP ^ FP[SN[ 1 . . . , Hi rSN] ,D i rDA] : 

LockF ile[SysDir ♦- Insertf i 1 e[@SysD i rfP . Read+Wr i te+Append]] ; 

END. 
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-- stuff yet to be done: 

SetCurrentDir, CloseCurrentDi r , SetWorkingDir , ParseFilename. 

VersionsKept , StripVersion, AppendVersion, SearchForVersion . 



